home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / maxon-demo / maxonbasic / install-maxonbasic < prev    next >
Encoding:
Text File  |  1995-09-13  |  4.4 KB  |  215 lines
  1. ; $VER: MaxonBASIC Install Version 1.0
  2. ; Script zum Installieren von MaxonBASIC Demo
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonBASIC\n\n auf einer "
  9.      "Festplatte installieren. Die komplette Installation läuft "
  10.      "automatisch ab. "
  11.      "\n\n"))
  12.  
  13. (set #askdir-help
  14. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  15.      "Sie gerne MaxonBASIC installieren möchten. Sie müssen KEIN Verzeichnis "
  16.      "anlegen, da das Installationsprogramm dies automatisch macht! "
  17.  
  18.       "\nSie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  19.       "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  20.       "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  21.       "gekennzeichneten Einträge auswählen.\n"
  22.       "Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  23.       "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  24.       "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  25.       "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
  26.       "\n\n"
  27.       ))
  28.  
  29. (set #help-startup
  30. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  31.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  32.      "bereits beim Systemstart ausführen.\n\n"))
  33.  
  34.  
  35. (set #no-inst
  36. (cat "\nDer Platz auf der von Ihnen gewählten Partition reicht nicht aus, um die "
  37.      "MaxonCAD-Dateien zu kopieren\n\n"
  38.      "!!! Die Installation wird abgebrochen !!!"))
  39.  
  40.  
  41. (set #COPVERZ    (cat "\nAuf welcher Partition soll MaxonBASIC\nangelegt werden?"
  42.                           "\nDas Verzeichnis \"MaxonBASIC_Demo\" wird automatisch erzeugt!"
  43. ))
  44.  
  45. (set #SIZE 1)
  46.  
  47. (set @language "Deutsch")
  48.  
  49. (set os-version (/ (getversion) 65536))
  50. (set os-13 (< os-version 36))
  51. (set os-20 (>= os-version 36))
  52. (set os-21 (>= os-version 38))
  53.  
  54.  
  55.  
  56. (Procedure Inst_NormFiles
  57.     (if (< (getdiskspace @Dest) @Size)
  58.         (abort #no-inst))
  59.  
  60.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  61.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  62. )
  63.  
  64. (Procedure Inst_PatternFiles
  65.     (if (< (getdiskspace @Dest) @Size)
  66.         (abort #no-inst))
  67.  
  68.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  69.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  70. )
  71.  
  72.  
  73. (message #introduction)
  74. (welcome)
  75. (set old_level @user-level)
  76.  
  77. (complete 0)
  78.  
  79. (set @default-dest                           ; Verzeichnis aussuchen 
  80.     (askdir
  81.         (prompt #COPVERZ)
  82.         (help    #askdir-help)
  83.         (default "WORK:")
  84.     )
  85. )
  86.  
  87. (set @default-dest (tackon @default-dest "MaxonBASIC_Demo"))
  88. (set @default-src "")
  89.  
  90.  
  91. (if                                          ; Verzeichnis erzeugen
  92.     (= (exists @default-dest) 0)
  93.     (makedir @default-dest (infos))
  94. )
  95.  
  96.  
  97.  
  98.  
  99.  
  100. (complete 5)
  101.  
  102. (
  103.     (set @Source @default-src)
  104.     (set @Dest @default-dest)
  105.    (set @Pattern "MaxonBASIC_Demo")
  106.     (Inst_PatternFiles)
  107. )
  108.  
  109. (complete 20)
  110.  
  111. (
  112.     (set @Source @default-src)
  113.     (set @Dest @default-dest)
  114.    (set @Pattern "Bitte_lesen")
  115.     (Inst_PatternFiles)
  116. )
  117.  
  118. (complete 30)
  119.  
  120.  
  121. (
  122.     (set @Source @default-src)
  123.     (set @Dest @default-dest)
  124.    (set @FName "Produktinfo")
  125.     (Inst_NormFiles)
  126.  
  127. )
  128.  
  129. (complete 40)
  130.  
  131. (
  132.     (set @Source @default-src)
  133.     (set @Dest @default-dest)
  134.    (set @Pattern "HBC")
  135.     (Inst_PatternFiles)
  136. )
  137.  
  138. (complete 50)
  139.  
  140. (
  141.     (set @Source @default-src)
  142.     (set @Dest @default-dest)
  143.    (set @FName "c")
  144.     (Inst_NormFiles)
  145. )
  146.  
  147. (
  148.     (set @Source @default-src)
  149.     (set @Dest @default-dest)
  150.    (set @FName "mbasic.prefs")
  151.     (Inst_NormFiles)
  152. )
  153.  
  154.  
  155. (complete 60)
  156.  
  157. (
  158.     (set @Source @default-src)
  159.     (set @Dest @default-dest)
  160.    (set @FName "Demos")
  161.     (Inst_NormFiles)
  162. )
  163.  
  164.  
  165. (complete 80)
  166.  
  167. ; HBASIC2-LIB kopieren
  168. ;-----------------
  169. (copylib
  170.     (prompt "Kopiere die HBASIC2-LIBRARY !")
  171.     (help
  172.         "Die hbasic2.library ist für den Betrieb von MaxonBASIC "
  173.         "notwendig "
  174.         @copyfiles-help)
  175.     (source "libs/hbasic2.library")
  176.     (dest "Libs:")
  177.     (confirm)
  178. )
  179.  
  180.  
  181. (complete 90)
  182.  
  183.  
  184.     
  185.     (
  186.     ; ------- STARTUP ÄNDERN
  187.     
  188.     
  189.     (set command1 (cat "ASSIGN MBASIC: " "\"" @default-dest "\""))
  190.     (set command1.txt
  191.         (cat 
  192.              "\n\n\nDie User-Startup muß um Pfadangaben für MaxonBASIC ergänzt werden.\n\n"
  193.         )
  194.     )
  195.     
  196.     (startup "MaxonBASIC-Demo"
  197.         (prompt command1.txt)
  198.         (help #help-startup)
  199.         (command command1)
  200.     )
  201.     )
  202.  
  203.     (run command1)
  204.  
  205. (complete 100)
  206.  
  207. ; ------- FERTIG
  208.  
  209.  
  210.  
  211. (exit)
  212.  
  213. ;=============================================================================
  214.  
  215.